heterozygosity <-
function (x, ...) 
{
    UseMethod("heterozygosity")
}
